home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1997 May & June / Amiga-CD 1997 #5-6.iso / grafik / wildfire / wildfirefpu / steuerung < prev    next >
AmigaDOS Script File  |  1992-09-17  |  4KB  |  164 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "assign"
  14.     set vassign 1
  15. endif
  16. if "[param]" EQ "unassign"
  17.     set vunassign 1
  18. endif
  19. if "[param]" EQ "start"
  20.     set vassign 1
  21.     set vstart 1
  22.     set vunassign 1
  23. endif
  24. if "[param]" EQ "install"
  25.     set vinstall 1
  26. endif
  27. set binfo        1
  28. set bcopy        1
  29. set bassign      1
  30. set bunassign    1
  31. set bstart       1
  32. set binstall     1
  33.  
  34.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  35.     set nummer 0
  36.     if $binfo EQ 1
  37.          echo >>t:tmpsteuerung " Info" NOLINE
  38.          set nummer `eval $nummer + 1`
  39.          set ninfo $nummer
  40.     endif
  41.     if $bcopy EQ 1
  42.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  43.          set nummer `eval $nummer + 1`
  44.          set ncopy $nummer
  45.     endif
  46.     if $bassign EQ 1
  47.          echo >>t:tmpsteuerung " Assign" NOLINE
  48.          set nummer `eval $nummer + 1`
  49.          set nassign $nummer
  50.     endif
  51.     if $bunassign EQ 1
  52.          echo >>t:tmpsteuerung " Unassign" NOLINE
  53.          set nummer `eval $nummer + 1`
  54.          set nunassign $nummer
  55.     endif
  56.     if $bstart EQ 1
  57.          echo >>t:tmpsteuerung " Start" NOLINE
  58.          set nummer `eval $nummer + 1`
  59.          set nstart $nummer
  60.     endif
  61.     if $binstall EQ 1
  62.          echo >>t:tmpsteuerung " Installieren" NOLINE
  63.          set nummer `eval $nummer + 1`
  64.          set ninstall $nummer
  65.     endif
  66.     if "[param]" EQ ""
  67.         echo >>t:tmpsteuerung " Ende" NOLINE
  68.         execute >nil: t:tmpsteuerung
  69.         delete >nil: t:tmpsteuerung
  70.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  71.         if $reqerg[$$] EQ 0
  72.             skip Ende
  73.         endif
  74.     endif
  75.     if $reqerg[$$] EQ $ninfo
  76.         set vinfo 1
  77.     endif
  78.     if $reqerg[$$] EQ $ncopy
  79.         set vcopy 1
  80.     endif
  81.     if $reqerg[$$] EQ $nassign
  82.         set vassign 1
  83.     endif
  84.     if $reqerg[$$] EQ $nunassign
  85.         set vunassign 1
  86.     endif
  87.     if $reqerg[$$] EQ $nstart
  88.         set vassign 1
  89.         set vstart 1
  90.         set vunassign 1
  91.     endif
  92.     if $reqerg[$$] EQ $ninstall
  93.         set vinstall 1
  94.     endif
  95. endif
  96.  
  97. if $vinfo EQ 1
  98. ;>>>>>>>> Hier Infotext eintragen
  99.     :c/Metatool :Grafik/Wildfire/WildfireFPU/doc/wildfire.guide FT=GUIDE
  100. endif
  101. if $vassign EQ 1
  102. ;>>>>>>>> Hier steht das Assign
  103.     Assign >nil: wf: :Grafik/Wildfire/WildfireFPU/
  104.     Assign >nil: wftut: :grafik/wildfire/wftut/
  105.     Assign >nil: wftut2: :grafik/wildfire/wftut2/
  106.     Path :grafik/Wildfire/WildfireFPU add
  107.     Assign >nil: fonts: wf:fonts add
  108.     Assign >nil: libs: wf:libs add
  109.     if $vstart NOT EQ 1
  110.         :c/requestchoice20 >nil: Information "Assign angelegt!" OK
  111.     endif
  112. endif
  113. if $vstart EQ 1
  114. ;>>>>>>>> Hier steht das Startprogramm
  115.     cd wf:
  116.     wf
  117. endif
  118. if $vunassign EQ 1
  119. ;>>>>>>>> Hier steht das Unassign
  120.     Assign >nil: fonts: wf:fonts remove
  121.     Assign >nil: libs: wf:libs remove
  122.     Assign >nil: wftut2: remove
  123.     Assign >nil: wftut: remove
  124.     Assign >nil: wf: remove
  125.     if $vstart NOT EQ 1
  126.         :c/requestchoice20 >nil: Information "Assign entfernt!" OK
  127.     endif
  128. endif
  129. if $vcopy EQ 1
  130.     execute :c/Verzeichniskopieren ":Grafik/Wildfire/WildfireFPU/" "WildfireNOFPU" 16603136
  131. endif
  132. if $vinstall EQ 1
  133. ;>>>>>>>> Hier Install-Skript eintragen
  134.     assign l: :l add
  135.     cd >nil: :Grafik/Wildfire/WildfireFPU/
  136.     :c/WBstarter >nil: :Grafik/Wildfire/WildfireFPU/Installieren_auf_HD
  137.     assign l: :l remove
  138.     skip Ende
  139. endif
  140.  
  141. unset binfo
  142. unset vinfo
  143. unset ninfo
  144. unset bassign
  145. unset bunassign
  146. unset vassign
  147. unset vunassign
  148. unset nassign
  149. unset nunassign
  150. unset bstart
  151. unset vstart
  152. unset nstart
  153. unset binstall
  154. unset vinstall
  155. unset ninstall
  156. unset bcopy
  157. unset vcopy
  158. unset ncopy
  159. if "[param]" EQ ""
  160.     Steuerung
  161. endif
  162. LAB Ende
  163. unsetenv reqerg[$$]
  164.